Sub muestra_On_Error_Err()
    Dim i As Integer
    On Error GoTo error_uno
    i = i / 0
uno_fin:
    Exit Sub
error_uno:
    Debug.Print "Err.Number       (" & Err.Number & ")"
    Debug.Print "Err.Description  (" & Err.Description & ")"
    Debug.Print "Err.Source       (" & Err.Source & ")"
    Debug.Print "Err.HelpContext  (" & Err.HelpContext & ")"
    Debug.Print "Err.HelpFile     (" & Err.HelpFile & ")"
    Debug.Print "Err.LastDllError (" & Err.LastDllError & ")"
End Sub
